home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Utilities / Unix / satan-1.1.1 / bin / faux_fping < prev    next >
Text File  |  1996-04-24  |  242b  |  13 lines
  1. #!/usr/local/bin/perl
  2. #
  3. # fping replacement that skips unresolvable hosts.
  4. #
  5.  
  6. $running_under_satan = 1;
  7. require 'perl/get_host.pl';
  8. require 'config/paths.pl';
  9.  
  10. $timeout = 5;
  11.  
  12. for (@ARGV) { system("$PING $_ $timeout") if &get_host_name($_); }
  13.